home *** CD-ROM | disk | FTP | other *** search
/ Beano - Dennis the Menace Cardz / Beano Cardz: Dennis the Menace.iso / pc / email.dxr / 00011.ls < prev    next >
Encoding:
Text File  |  2001-04-19  |  540 b   |  22 lines
  1. on exitFrame
  2.   global email
  3.   if EmailDone(email) then
  4.     error = EmailErrorCode(email)
  5.     if error = 0 then
  6.       put "Your Message was Sent!" into field "Status"
  7.     else
  8.       put "Error: " & error & " " & EmailErrorMessage(email) into field "Status"
  9.     end if
  10.     set the member of sprite 20 to member("SendUp")
  11.     set the member of sprite 21 to member("StopDisabled")
  12.     email = 0
  13.     go(the frame - 1)
  14.   end if
  15.   if field("Status") = "Your Message was Sent!" then
  16.     go("sent")
  17.   else
  18.     nothing()
  19.   end if
  20.   go(the frame)
  21. end
  22.